
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tDiscapacidad_x_Solicitud



# Region "tDiscapacidades"

		private mtDiscapacidades As New tDiscapacidades

		Public Property tDiscapacidades As tDiscapacidades
        Get
                mtDiscapacidades = mtDiscapacidades.TraerFiltradoListOf("IdDiscapacidad", Me.IdDiscapacidad).Item(0)
        Return mtDiscapacidades
        End Get
        Set
             If ((mtDiscapacidades Is Nothing) Or (Me.tDiscapacidades.Equals(value) = False)) Then
                If Not (Me.tDiscapacidades Is Nothing)
	               Dim oldtDiscapacidades As tDiscapacidades = Me.tDiscapacidades
                   Me.mtDiscapacidades = Nothing
                   oldtDiscapacidades.RemoveListatDiscapacidad_x_Solicitud(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtDiscapacidades = value
                   Me.tDiscapacidades.AddListatDiscapacidad_x_Solicitud(Me)
            	End If
             End If
        End Set
       End Property

# End Region



# Region "tSolicitudes"

		private mtSolicitudes As New tSolicitudes

		Public Property tSolicitudes As tSolicitudes
        Get
                mtSolicitudes = mtSolicitudes.TraerFiltradoListOf("IdSolicitud", Me.IdSolicitud).Item(0)
        Return mtSolicitudes
        End Get
        Set
             If ((mtSolicitudes Is Nothing) Or (Me.tSolicitudes.Equals(value) = False)) Then
                If Not (Me.tSolicitudes Is Nothing)
	               Dim oldtSolicitudes As tSolicitudes = Me.tSolicitudes
                   Me.mtSolicitudes = Nothing
                   oldtSolicitudes.RemoveListatDiscapacidad_x_Solicitud(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtSolicitudes = value
                   Me.tSolicitudes.AddListatDiscapacidad_x_Solicitud(Me)
            	End If
             End If
        End Set
       End Property

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tDiscapacidad_x_Solicitud)
            Dim dtDatos As DataTable
            Dim listatDiscapacidad_x_Solicitud As New List(Of tDiscapacidad_x_Solicitud)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidad_x_Solicitud As New tDiscapacidad_x_Solicitud
				mtDiscapacidad_x_Solicitud.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidad_x_Solicitud.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtDiscapacidad_x_Solicitud.Traer_objeto()
            	listatDiscapacidad_x_Solicitud.Add( mtDiscapacidad_x_Solicitud)
    		Next dr
Return listatDiscapacidad_x_Solicitud
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tDiscapacidad_x_Solicitud)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatDiscapacidad_x_Solicitud As New List(Of tDiscapacidad_x_Solicitud)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidad_x_Solicitud As New tDiscapacidad_x_Solicitud
				mtDiscapacidad_x_Solicitud.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidad_x_Solicitud.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtDiscapacidad_x_Solicitud.Traer_objeto()
            	listatDiscapacidad_x_Solicitud.Add( mtDiscapacidad_x_Solicitud)
    		Next dr
Return listatDiscapacidad_x_Solicitud
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tDiscapacidad_x_Solicitud)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatDiscapacidad_x_Solicitud As New List(Of tDiscapacidad_x_Solicitud)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidad_x_Solicitud As New tDiscapacidad_x_Solicitud
				mtDiscapacidad_x_Solicitud.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidad_x_Solicitud.IdSolicitud = CType(dr.Item("IdSolicitud"),Integer)
				mtDiscapacidad_x_Solicitud.Traer_objeto()
            	listatDiscapacidad_x_Solicitud.Add( mtDiscapacidad_x_Solicitud)
    		Next dr
Return listatDiscapacidad_x_Solicitud
End Function
# End Region

End Class
End Namespace
